(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     12001,        271]
NotebookOptionsPosition[     11597,        252]
NotebookOutlinePosition[     11987,        269]
CellTagsIndexPosition[     11944,        266]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"M\[EAcute]todo", " ", "de", " ", "Newton", " ", "d"}], "=", 
    "1"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"2", "x"}], "-", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Df", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e", "=", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "5"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "10000000000"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"res", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{"y", "-", "x"}], "]"}], ">", "e"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "=", "x"}], ";", "\[IndentingNewLine]", 
      RowBox[{"x", "=", 
       RowBox[{"N", "[", 
        RowBox[{
         RowBox[{"x", "-", 
          RowBox[{
           RowBox[{"f", "[", "x", "]"}], "/", 
           RowBox[{"Df", "[", "x", "]"}]}]}], ",", "10"}], "]"}]}], " ", ";", 
      "\[IndentingNewLine]", 
      RowBox[{"res", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"res", ",", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "res", "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Blue", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"res", "[", 
            RowBox[{"[", 
             RowBox[{"Length", "[", "res", "]"}], "]"}], "]"}], ",", "0"}], 
          "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.762179073992655*^9, 3.7621791305542707`*^9}, {
   3.762179189403986*^9, 3.7621795731681013`*^9}, {3.762179616830461*^9, 
   3.762179679167139*^9}, {3.762179811133621*^9, 3.762179856594544*^9}, {
   3.762179975715486*^9, 3.762180029273695*^9}, {3.7621801082274303`*^9, 
   3.762180109082292*^9}, {3.762192122228772*^9, 3.762192212279477*^9}, {
   3.762192250168933*^9, 3.7621923379413013`*^9}, 3.762192403137476*^9, 
   3.762519736541959*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5`10."}], ",", 
   RowBox[{
   "-", "0.41666666666666666666666666666666666667`9.607889534988688"}], ",", 
   RowBox[{
   "-", "0.41421568627450980392156862745098039216`9.303921797692865"}], ",", 
   RowBox[{
   "-", "0.41421356237468991062629557889013491012`9.002889249052583"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.762179409224309*^9, 3.762179424710514*^9}, {
   3.762179457642557*^9, 3.762179479150442*^9}, {3.7621795289829063`*^9, 
   3.762179574380024*^9}, {3.76217964950238*^9, 3.762179679540951*^9}, {
   3.7621798161542683`*^9, 3.7621798362936993`*^9}, {3.762179998963064*^9, 
   3.7621800122177343`*^9}, 3.762180116641802*^9, {3.76219212772876*^9, 
   3.7621922128582687`*^9}, {3.7621922509705267`*^9, 3.762192338548202*^9}, 
   3.762192407652316*^9, 3.762519742378119*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwtmHk0Vf33x81ThriU0hOVKUqGklD7U0kqzZJQhqKeeEiTIUkiFUkqRBqQ
pEIqpB77RilUnkyZQmS+uPear+ue7/mt9fvrrNf6rHPOPu+933vvdRa5++7x
EBESElIQFhL6v+v5nu1cimIw1zefHqAoQk6nqo418xnMewk31m2dJsT7YOdE
wRSD6W4RtOLOOCHONQEzviMM5rI12L9skBBLTJNq72Ywi+SkPh9uIoQXP7WQ
+Y3BLJh/Z87wa0ICrB9vC01mMK0+3lMMPk4//zE/XWg1zc8+DrVmA/Elnibz
DioxFx89K7Jkw1ryUvKET+pNRaZSybFJf4YFCYz65rG0YjZzPGR1rZvoGnKt
odIvtlOB+V92iuHFFlOSy7X0y9kpz8xvDbguOryStJYt0RXclWWGBG45nTtk
TOYp5+23YckwA96Lm5yRNyIdb0PbTzlJM20m3jqlfzIgr+Z90qjKlGSeeBJX
E7VHnyhVbymaxZBgNg1a7P2wUZecFz37dWOEGNOVyXnk5qVF2ENz45/ViTBL
FP+NKg9dTDjGvMLRDcLMUOG0EbsOdTLmlq7dvIDCDc/9On2y5xONXWlfS0un
8Z/gwH6PQRVydHixlm/6JBqLVh4zqlIkxSIxrMD1Yyg1spQ17DKLGH8O9Nys
ykXet3NaWXvFiBf16H6v/SB2PGo5uaiCB6l2Q3sMU7rxzzwn88hVg6Aka+k9
Y9+Or9HtfPmsati4/0OZEqMGM4V2plzUq8U9kam7N7ZXo6nV9ifrs2vRteBS
y6kX1RgX9170pVEdBs+15tZursbMnUOvUlbX45ufFX8lBP9Ah233OdnQgDty
M/tMv1ZhsY1hRy5pwTl53zfZnCzHpuXytvNEO9DWaxW/LvgtLvK79ix+Zx/O
6pX7c+dNIeZk8fpsLvdhxZHuyn1DBdhyfu3h2vd9aHMoIbnOJR+VOeYS/kv7
0Wr3lHndhlc4JqMiPyA0gEE+QSOZilkYKWutFZPJwlyPh72Hktyx1zrZj9k0
jJwjz+QM9xbCNlvpD8e7uGgwS3Wrg/5b+CE0rF4zw8XjL8Mvh4oWgfyy/dma
c0bwz8xB6r9X7+BFd/aBS9Yj2BA/m+OnjBDCOtdvkDGCrn/M+xv7S8DLPHp0
ndso2sx5+E3teTmcaovI2lA2hp5/1w+sUK2A+uNFU/81j2HEe1kZq/AKYHv7
BdhwxrDEPdDa27kSttR5io2ojaNlzh58L/sNYkx97U1PjKNqelhDtul/cNhi
vOOM8gTKrl1VsTOhBix3/Epp2DaJ15x0s/8trwFDvepX2w9OomSQWpw+vwY8
E2MGsn0mUaRA2FHSrRZi9Q8xV92cxEnD733FenXQu8yBsqubxD+aR6UNiuvh
fnJBdeOBKXwne9dGtqsRli/VrOLv5aGZfvSyoLlNoLt91sJxdx7mb7kwu3dL
E7iLFsU0+/Ew97JHQ2l2EyRq+9Qdv8HDDCHjY+cCmkHcxmgyqZyHcaMVkf2z
fkHv+OJb682ncZVPyOEj89qhSuz1wkxZPtY+EnIsXNkOv6Wd0HA+H0/Whe2S
3dUOcp/OSKfq8DHbMnLt68vt8OagRNK6DXzUnhU7V2y0HTaq3n7ucpaPqpmP
KtO+/wbHPLeE9U18zG9eUjLR9xuU51lV2XXz0U4ho3CbeAf0rkrK3cXl482z
WY9HLDqg4+YjXxGZGZTZ9OrCxqcdoFSzoG272Qzyf3806bzUCV5Bny6Fx85g
kspmvdUPOuHbhs49i5Nn0GxLuUZUUSds/XC6MvPxDJ7J/SZnwumE2+3cQt+i
GRwKqe8JO/QHPDKdIro6ZrBdrTd58ZouED7Y1nlihQBDdh6PO2vXBbKRZlvv
mglwwSXWlQrfLjA6Ku6YtV6AB/rZZ05mdEHlFt6Zy3sFWF04tbOE0Q3rEnc9
0D4rwI/7Zom5D3XDAsecAokC+lxRdKOpdA9UiBwbvlMswLZvvIsymj0wL74o
U75MgLxN/VTegR64E7z84ftaARqalk+LfuoB+S1bU2U4Arw3J3LkcXIviLS7
jPhoUZhVHWIclN8LL40LrOL1KSyIOeu340cvCJ3InPvEiMJqCc/hcYk+OJ/l
sCFiLYVSE1YDm0/2weRCdpaJHYWnf4p09tn0w7D49BeH8xSG3eItKj7cD/dF
OCaqYRTe2Ml1jQvph8G+UI0Pl+n3ff7dav66H7wDfEKqblDYXsBsilIfgN7b
odtbH1I4dKpwnqv5ACR2b/rUl07h9Ipch5X7BqB78ePi1kwK52Q+qG+5NgAe
TkamEbkU2iaGVC8fH4DOylCzj8UUOtqdVRRRZEHcSZV/1UooPDrbZ1e9Pgs6
RK1KnT/R8V05+D3EjQVu3T52yZUUxlrtk9sbzILY1V5tid8pTBHabquTwALX
U8KsCz8oLAywrKj6yoK2rOmrMj8pLFu5Ujq9hwU3MlzUshsprGHr2wSIDEJr
9EEDixY6/mNqZRpmg3Bonk6j4m8KlxzgffBLo8+NOOtf9lGYqXBowP/9IKy0
f2oZOkDhsrIPyiF1gyD2AB9bDFJoanL16DXJIZC+L1Hqz6awqI8VG6sxBMRu
tf8kh0J4uKsofs0QDBmU3fUYodBGTlUuzWsIXu0WLBUfp/Br6TnTp+FDUH73
ScLqCQp3B7W55KQMwX6JnFP2kxTWG268+iZ/CA4mKBe7TdF69WTkvasagmbb
hrMHeBS2psi0fOgdgh/avJS10xQetvMR/yI8DOu0gkzk+RT2ylQbfJ8/DJo2
Dqsrafb+sMqh1mQYwm7cfnp6hkK2/92LTbbDYD9tcE1GQOEZg5msdo9hSI/S
aYymmffHtbY7ZBj+JiHx0zSHJH+cYSUMQ8Y8kxJ7ikLRPbo6I7nD4DTX2vk+
zVekondNlQ/DlTUFR6pplsXhQKpjGJaFXm6mFxG8eWZvmjh/GLYMvGJSNM+K
d+qOkGHDryBQnqJ5u5/ctNRcNvQbLK1vpTnWFhWil7DBR9JP4iXN1Tp+mgqG
bDguNvexL83KokvWxFmyoVVLLW8+zfattdtVtrChwuv88jw63sS3l90T97HB
oH7tXFOam2+b+au5s0Haw9k3g/7+hSf6o+77sOGgauMqUZpdt917uOgcG3TZ
r47b0nqlau94kx7JBm8WSy6M1vePsFCFzm026MiFq6fT+mv/etma9ZANjnsC
H+TR+fm78PDI8hdsEH//9foLOn9DPp8XrCxjQwn/+ptjdL4NtwYaFVSzoa5m
ekh3jMKTWvrW5m1scK36HF9H18dEc4wvmWRDi0mQ0ShdT+YFJLxUjANV91w1
PYcpDI7jJlorcmCN3uOIj3T9CW2xL7HV48CZPJtb1v30XqIp9bPKlAPWL57A
8V4Kw6m3A3s2ciD26xHHoG4KpfP/UjngzIGogKkmlw7ajzerlrYc44Cl+A+y
qp3CGO+L61zOcMAzX0Jl4heFSku6jnrEcEDjcrQUof1jJ4gP7k3iwMv0Fp3P
9RQmNNrc9HrCgbc9196Y11K4IPZ5kR+TA8bNwgt6aH9qzZySC+Fy4KP/AZV9
pXQ+9I6nKwhxIVCvfg4fKZRxcLV4JMeFBy+/K0e/p/XKs/37oy4XzNeaSBx9
Q2H+Ma1PMi5ceLalolgqg0LdeDXne95caHuglT7xiMKkUsWR5UFcCKvgR1Sl
0PW5UKCx+w4XVFMWgvkdCq1r64MTKrlwYbVh5DTd3wqFvzGWNnLB0Oj4LuMQ
CvVWlGYVdXNhN6U+Z08ghfLXchp+CY9AhyoVb+tL+w+urNQ0GwFYH+Wz3JFC
z2drWLnpI8DybD59n+6/DQ0rLm3IG4HEJ9XiHnR/3iqhPb8WR+D1+023lNUp
NHBTsploGgHzIw/SDJQoHJ8zkLZWcRTCMzWSdkwIMDLsnlPF+VGQlnBqXfsv
PQ9y4rhOUaOQc11h9e03AvT+deXqYOIolPVBdM0LAe4yO1Mw+/UobFRXXiZ3
X4CqQ9sZ+/tHIfDCtfXe5wWYeYCq6LQfg3rlnNLG1QK0D9ffH3N4DB5/Urvl
RM830Zz9nWYnxkBqSa5dubYAD4nlTl+/OgYRnTuzj6kIUCXHdZnZ+zFwO+f1
Lp8zg2FiJdejF43DIwnG2tiMGXTOCd+1ijUOG6KWtJoJ0/O5KbelbXIcvL9H
cM3G+Vgg9uvYNfEJ0CtWmNIc4KOS46qLbQsnwDktqYVZy8dyse6XV3dPQGp4
9IzkEz6aOm5mtOZPQFFqe0bNZj4qiMvUX744CVLbtya4Bk3j6MiJy5zrk/D1
vq/5kn+msanjp6lz0iT09o0mVLtMYzrzcYLRq0kw9lYPm7CaRrPg9Qda/kwC
T2NUyVF+Gt1HAlqMbKaA9rV2WAq9H/3u6WiR50F8Wo/KoRdTmPzfjlub1WjW
kBUvTJnCUHyzMU+HB+z42GzB9SnclnIpPZLwINf3reEenylsd1D3ND7JA88f
1ziKBlMo8599X2QdD57vW+Yx+nQSDxV/Gja+Nw2pbseVN92awFPUicXPn05D
t66i+PMLE3iFLNinVTANSVpPrPheE5hXcrJobvU07MCHuQ5WEyjxWT2CL8kH
1qkKC+HRccyuCpxfdooPgt8TCxV3jqOgffmmA9tmIPhHkeqy0VFMEY1PusAT
QNNMe+MOHgeH1vuXKEpSEBtRcutdBwfXhTr0pzEo0F1THK1cycF2/nzzL8so
mFwiZhmVzMHF4w8aZ7tQoC1VcSPKgoMZvU9VU0speC6zTrbBn40/uw9tc7cW
Ikz29ZekdBDbK0+WhysIk0JWYWjLSDdq3I5YuG+OMJl8Fhkjld+Nrs6Jp7T+
EiZSK6oMJAK6sZ31719lesLkYegX7bPTXfhbTvqkpLUwydx9ZFRXqAs7dj6Y
fy1YmKg+IxJNQp3YVVPpdaNPmMz2V5WuLf6F/c2a8kmlIkRj27sX4pu+oOet
+KlvjmIk12VfW3haA9T/cPWW6BcnJ/5I5j72ZMM6+zc6CsmS5MvPmFDvDj7M
DSu/arpCmghWtXkV94mRvpGjKw26ZEj3nznuYw9lSTbrkKfeLVnCfXc22eSM
EumKVoFNmvLkUt2GjNnpc4jyKXtXw58KJKDjyZqpCDXiFKqvnJI/m8Dp9Ffq
KzVIhkyDRfp5RbKhcWJahrmYDBaUR97ap0T8l/Z+nJujRVhmajpK6gyieyAE
+bd1SYaoTeudxQzSK3z08uZUXeL6/fSdedoMEve85vCdHF1Sd/i76KLlDPJM
co27eYUuKY652L7CgkH+qzX55ymlS2L/9Nzdvp9BpCr73ql5LSUrY1/LXr3B
IIt19lvuttIjQ46/S2VvMYieHLNGsFuPZGrJn4uNZ5AFY88v5rjokb/eHe1L
SGGQ0gqlRfPP6RGJ7vllGc8YROK6vI9ynh5psLh44eNnBgn4p4ykaOiTOIls
U5tKBtE86UuCDfSJ7Y+mwcrvDFIYcM/+kKU++eC50rmmjkGeRIWV6Tvok6yb
PWYdnfT9X0JeD9zQJ0ecldkePQxytmXzsc4UfaKus/5JXz+DuHFvG7c+0ye3
3yepcDgMwl3yTubXZ32yI/Lz19NjDJIIt1V/1+kTqT2jlyYnaf0Ocix7O/VJ
yYJFFsF8BkkNrvbncvTJ///fILPury6nKH3yP6vODcw=
      "]]}}, 
   {RGBColor[0, 0, 1], PointSize[Medium], PointBox[{-0.4142135623746899, 0}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-5, 5}, {-1.9999997641995881`, 33.99999755102045}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.762179409224309*^9, 3.762179424710514*^9}, {
   3.762179457642557*^9, 3.762179479150442*^9}, {3.7621795289829063`*^9, 
   3.762179574380024*^9}, {3.76217964950238*^9, 3.762179679540951*^9}, {
   3.7621798161542683`*^9, 3.7621798362936993`*^9}, {3.762179998963064*^9, 
   3.7621800122177343`*^9}, 3.762180116641802*^9, {3.76219212772876*^9, 
   3.7621922128582687`*^9}, {3.7621922509705267`*^9, 3.762192338548202*^9}, 
   3.762192407652316*^9, 3.7625197426254272`*^9}]
}, Open  ]]
},
WindowSize->{893, 911},
WindowMargins->{{Automatic, 793}, {203, Automatic}},
Magnification:>1.25 Inherited,
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2976, 80, 498, "Input"],
Cell[3559, 104, 849, 17, 35, "Output"],
Cell[4411, 123, 7170, 126, 331, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)